home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 14 / CU Amiga Magazine's Super CD-ROM 14 (1997)(EMAP Images)(GB)(Track 1 of 3)[!][issue 1997-09].iso / CUCD / Programming / AMOS / AMOSList0597 / AMOSLIST / text0319.txt < prev    next >
Encoding:
Text File  |  1997-06-01  |  793 b   |  23 lines
  1. Take a look at this. How could I draw a bob in e.g. red or green colour?
  2.  
  3. Screen Open 0,320,200,32,0 : Curs Off : Flash Off 
  4. Screen Open 1,320,20,32,0 : Cls 0 : Curs Off : Colour 2,$F00 : Rem Screen Hide
  5. 1
  6. Load Iff "hd1:data/pics/2unlimit.lbm",0 : Screen 1
  7. Paper 0 : Ink 2 : Print : Centre "omfgjmdrjdmfrdmffmfmfnikola"
  8. Screen 0
  9. Get Bob 1,1,1,1 To 320,20 : Set Bob 1,0,%10000,%11100010
  10. 'No Mask 
  11. Bob 1,0,0,1
  12. Do 
  13. Loop 
  14.  
  15. -- 
  16. _        _  _         _  _          _                                   _
  17. \--- :_ :_ :_::- --: : ::_) _: --- \/ ----------------------------------/
  18. \\_: !_)!_,! !!_,  !,!_!! \(_! ::::..::::      nEVERmIND     :::'`::::_//
  19. `\------------------------------------------------------------- /\ ----/'
  20.   Nikola Smolenski - member of Team AMIGA             smolensk@eunet.yu
  21.  
  22.  
  23.